800
How can I change the color for a particular bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1"
			h = .AddItem("Item 2")
			.AddBar h,"Task",#1/4/2001#,#1/6/2001#,"B2"
			.ItemBar(h,"B2",33) = 255
			.AddBar .AddItem("Item 3"),"Task",#1/6/2001#,#1/14/2001#,"B3"
		End With
	End With
End Function
</SCRIPT>
</BODY>
799
How can I change the color or visual appearance using EBN files for a particular bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BGoCg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGLhQiSJoJDSBEgSXDIZQ5D6OZYACDJQACJYJTbAYzyP" & _
	"JkPRAA6EZCmGAwCglf5HABRb7xNLkbQ8GySKJnWCQJhoD5BSLCNRUTRFFQtGgZBpEWwLCjQNQwWLKFoTJIEPSBDKqYDoKYqTgOOZOThHQz3HakQRdAa/ZpnaKpUo2d47" & _
	"XjMWBwGA0EzeAAGaxoShqdoiFaGU7UOJVJBOGwHK6BchoMAKbp6XoVWRaOAWLZWVABM7XLZxbLccyGfZ1XhdV5UbqUMznR7PNrjLKIJpCOJbbyAFwgBaeQABYLhK7iHR" & _
	"mi8XYwjMWpjFWOx1GIB5LmgdB4HCEBECSIBpDGHQOicIwokYPImikEIJj6eJIloEgogSc40FGcJEFiYZIG2VIoAURw1g2QxyAQNwNAMPJOgIYI4CoDIBmAeAKBIUpQDU" & _
	"KJYDoTpIB4vxgmgdgNgeYZDDoFw7CEJhQn+BohmKfImCWSZRlgYwikYMQ0gwF4DniTA/gwBJYjQYwsgoIg6AyCRQDiIJODAZBImoOguAmMZ4lQLIJjOMI3CYZJpEIT4K" & _
	"iKSI6DqD5ZGAAgHC2DAjBYR4SGUGYGE+GIlCmFhRhIB5iFAbwWsiJgMhoCoxngV4ZCcSYOHaGYnHmIg8COJpoCoOISmSWZeHWHgoEkRoAg4EIYB4NogmiSgKg6GRjGoJ" & _
	"gFh+ZJKDaBYjmgaQygiBRUHmbhoDsTAyiqIIoioGoOw8aoKhKKoemeOIaAeF5HmqHoqiyKxKgYaN/locgBiuZRojoVIok8cwsjaMBLGqDoAhGIpoEYWYEmAIxUkQLZmg" & _
	"iYg2g2I4JiCQwuAqWIOIkEAQICA=="
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Item("Task")
				.Color = &H1000000
				.Height = 16
			End With
		End With
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1"
			h = .AddItem("Item 2")
			.AddBar h,"Task",#1/4/2001#,#1/6/2001#,"B2"
			.ItemBar(h,"B2",33) = 255
			.AddBar .AddItem("Item 3"),"Task",#1/6/2001#,#1/14/2001#,"B3"
		End With
	End With
End Function
</SCRIPT>
</BODY>
798
How can I resize programmatically a bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/4/2001#,#1/6/2001#,"B2"
			.ItemBar(h,"B2",513) = 1
		End With
	End With
End Function
</SCRIPT>
</BODY>
797
How can I move programmatically a bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/4/2001#,#1/6/2001#,"B2"
			.ItemBar(h,"B2",514) = -2
		End With
	End With
End Function
</SCRIPT>
</BODY>
796
How can I select displaying the histogram for an item and all its child items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.MarkSearchColumn = False
		.ShowFocusRect = False
		.Columns.Add "Tasks"
		With .Columns.Add("Hist")
			.Def(0) = True
			.PartialCheck = True
			.AllowSizing = False
			.Width = 18
		End With
		With .Chart
			.LevelCount = 2
			.NonworkingDays = 0
			.PaneWidth(0) = 96
			.FirstVisibleDate = #6/20/2005#
			.HistogramVisible = True
			.HistogramView = 67348 ' &H10000 Or HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramRecLeafItems Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramCheckedItems
			.HistogramHeight = 64
			With .Bars.Item("Task")
				.HistogramCriticalColor = RGB(255,0,0)
				.HistogramPattern = 512
				.HistogramType = 1
			End With
		End With
		With .Items
			h = .AddItem("Project 1")
			.AddBar h,"Summary",#6/21/2005#,#7/1/2005#
			h1 = .InsertItem(h,,"Task 1")
			.AddBar h1,"Task",#6/21/2005#,#6/28/2005#
			.CellMerge(h1,0) = 1
			.DefineSummaryBars h,"",h1,""
			h1 = .InsertItem(h,,"Task 2")
			.AddBar h1,"Task",#6/23/2005#,#7/1/2005#,"E"
			.CellMerge(h1,0) = 1
			.DefineSummaryBars h,"",h1,"E"
			.ItemBar(h1,"E",21) = 5
			h1 = .InsertItem(h,,"Task 3")
			.AddBar h1,"Task",#6/25/2005#,#6/27/2005#,"E"
			.CellMerge(h1,0) = 1
			.DefineSummaryBars h,"",h1,"E"
			.ExpandItem(h) = True
			.CellState(h,1) = 1
			h = .AddItem("Project 2")
			.AddBar h,"Summary",#6/26/2005#,#7/6/2005#
			h1 = .InsertItem(h,,"Task 1")
			.AddBar h1,"Task",#6/26/2005#,#7/2/2005#
			.CellMerge(h1,0) = 1
			.DefineSummaryBars h,"",h1,""
			h1 = .InsertItem(h,,"Task 2")
			.AddBar h1,"Task",#6/28/2005#,#7/6/2005#,"E"
			.CellMerge(h1,0) = 1
			.DefineSummaryBars h,"",h1,"E"
			.ItemBar(h1,"E",21) = 5
			h1 = .InsertItem(h,,"Task 3")
			.AddBar h1,"Task",#6/30/2005#,#7/2/2005#,"E"
			.CellMerge(h1,0) = 1
			.DefineSummaryBars h,"",h1,"E"
			.ExpandItem(h) = True
			.CellState(h,1) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
795
How can I select or specify the items being included in the histogram, (using a different column )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.MarkSearchColumn = False
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.HistogramVisible = True
			.HistogramView = 65540 ' &H10000 Or HistogramViewEnum.exHistogramCheckedItems
			.HistogramHeight = 32
			.Bars.Item("Task").HistogramPattern = 6
		End With
		.Columns.Add "Column"
		With .Columns.Add("Histogram")
			.Def(0) = True
			.AllowSizing = False
			.Width = 18
		End With
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/5/2001#
			h = .AddItem("Item 2")
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#
			.CellState(h,1) = 1
			h = .AddItem("Item 3")
			.AddBar h,"Task",#1/2/2001#,#1/5/2001#
			.CellState(h,1) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
794
How can I select or specify the items being included in the histogram

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.HistogramVisible = True
			.HistogramView = 4
			.HistogramHeight = 32
			.Bars.Item("Task").HistogramPattern = 6
		End With
		.Columns.Add("Column").Def(0) = True
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/5/2001#
			h = .AddItem("Item 2")
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#
			.CellState(h,0) = 1
			h = .AddItem("Item 3")
			.AddBar h,"Task",#1/2/2001#,#1/5/2001#
			.CellState(h,0) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
793
Is there any option to display the histogram for selected items only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.SingleSel = False
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.HistogramVisible = True
			.HistogramView = 2
			.HistogramHeight = 32
			.Bars.Item("Task").HistogramPattern = 6
		End With
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/5/2001#
			.AddBar .AddItem("Item 2"),"Task",#1/4/2001#,#1/7/2001#
			.AddBar .AddItem("Item 3"),"Task",#1/2/2001#,#1/6/2001#
			.SelectAll 
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
792
Is it possible to add bars to a summary bar so, they get resized or moved as soon as a bar is changed

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.BackColor = RGB(255,255,255)
		.ShowFocusRect = False
		.HasLines = False
		.LinesAtRoot = -1
		.HasLines = False
		.Indent = 14
		.FullRowSelect = False
		.ScrollBySingleLine = True
		With .Chart
			.BackColor = RGB(255,255,255)
			.SelBackColor = RGB(245,245,245)
			.AllowCreateBar = False
			.AllowLinkBars = False
			.FirstVisibleDate = #1/1/2008#
			.LevelCount = 2
			.PaneWidth(0) = 98
		End With
		.Columns.Add ""
		With .Items
			hProject = .AddItem("Project")
			.ItemHeight(hProject) = 26
			.AddBar hProject,"Project Summary",#1/2/2008#,#1/5/2008#
			.ItemBar(hProject,"",3) = "<br>< <b>Project Summary</b> >"
			hR1 = .InsertItem(hProject,,"Team 1")
			.ItemHeight(hR1) = 30
			.AddBar hR1,"Summary",#1/2/2008#,#1/8/2008#
			.ItemBar(hR1,"",3) = "<br> Team <b>1</b> Summary "
			h1 = .InsertItem(hR1,,"Member 1")
			.AddBar h1,"Task",#1/2/2008#,#1/7/2008#
			.DefineSummaryBars hR1,"",h1,""
			h1 = .InsertItem(hR1,,"Member 2")
			.AddBar h1,"Task",#1/4/2008#,#1/9/2008#
			.DefineSummaryBars hR1,"",h1,""
			h1 = .InsertItem(hR1,,"Member 3")
			.AddBar h1,"Task",#1/5/2008#,#1/10/2008#
			.DefineSummaryBars hR1,"",h1,""
			.ExpandItem(hR1) = True
			hR2 = .InsertItem(hProject,,"Team 2")
			.ItemHeight(hR2) = 30
			.AddBar hR2,"Summary",#1/2/2008#,#1/8/2008#
			.ItemBar(hR2,"",3) = "<br> Team <b>2</b> Summary "
			h2 = .InsertItem(hR2,,"Member 1")
			.AddBar h2,"Task",#1/4/2008#,#1/7/2008#
			.DefineSummaryBars hR2,"",h2,""
			h2 = .InsertItem(hR2,,"Member 2")
			.AddBar h2,"Task",#1/8/2008#,#1/11/2008#
			.DefineSummaryBars hR2,"",h2,""
			h2 = .InsertItem(hR2,,"Member 3")
			.AddBar h2,"Task",#1/5/2008#,#1/12/2008#
			.DefineSummaryBars hR2,"",h2,""
			.ExpandItem(hR2) = True
			.ExpandItem(.FirstVisibleItem) = True
			.DefineSummaryBars hProject,"",hR1,""
			.DefineSummaryBars hProject,"",hR2,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
791
Is it possible to define level in terms of just increasing numbers (not a Date)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.PaneWidth(0) = 32
			.UnitWidth = 32
			.FirstVisibleDate = 1000
			.Level(0).Label = "<%i%>"
		End With
	End With
End Function
</SCRIPT>
</BODY>
790
How can I hide the non-working units ( days or hours )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(0) = 0
			.LevelCount = 2
			With .Level(0)
				.Label = "<%dddd%>"
				.Alignment = 1
			End With
			.Level(1).Label = 65536
			.NonworkingHours = 16773375
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = False
			.ShowNonworkingHours = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
789
Is there a way to have the display show the word "Noon" instead "12:00 PM" in the chart's header/levels

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.PaneWidth(False) = 0
			.FirstVisibleDate = #1/1/2001 10:00:00 AM#
			.LevelCount = 3
			With .Level(0)
				.Label = "<b><%mmm%> <%d%>, <%yyyy%></b>"
				.Alignment = 1
				.Unit = 4096
			End With
			With .Level(1)
				.Label = "<%h%>:00 <%AM/PM%>"
				.Alignment = 1
				.Unit = 65536
				.DrawTickLines = True
				.DrawGridLines = True
				.ReplaceLabel("12:00 PM") = "<fgcolor=0000FF><b>Noon</b></fgcolor>"
			End With
			With .Level(2)
				.Label = ""
				.Unit = 1048576
				.Count = 15
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>
788
How can I change the selection background color in the chart area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.SelBackColor = RGB(255,0,0)
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Item 1"),"Task",#1/6/2001#,#1/14/2001#
			.SelectItem(.FirstVisibleItem) = True
		End With
	End With
End Function
</SCRIPT>
</BODY>
787
How can I change the selection background color in the chart area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.SelBackColor = &H1000000
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Item 1"),"Task",#1/6/2001#,#1/14/2001#
			.SelectItem(.FirstVisibleItem) = True
		End With
	End With
End Function
</SCRIPT>
</BODY>
786
Is there any way to extend the selection on the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.SelBackColor = G2antt1.SelBackColor
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Item 1"),"Task",#1/6/2001#,#1/14/2001#
			.SelectItem(.FirstVisibleItem) = True
		End With
	End With
End Function
</SCRIPT>
</BODY>
785
How can I display the column's header using multiple lines

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.HeaderHeight = 128
		.HeaderSingleLine = False
		.Columns.Add("This is just a column that should break the header.").Width = 32
		.Columns.Add "This is just another column that should break the header."
	End With
End Function
</SCRIPT>
</BODY>
784
Can I move or limit moving or resizing a bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBySingleLine = True
		.DrawGridLines = -1
		.DefaultItemHeight = 19
		.GridLineColor = RGB(220,220,220)
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.ScrollRange(0) = #12/28/2000#
			.ScrollRange(1) = #1/12/2001#
			.DrawDateTicker = True
			.NonworkingDays = 0
			.DrawGridLines = -1
			.ResizeUnitScale = 65536
			.AllowCreateBar = False
			.PaneWidth(0) = 128
			.LevelCount = 2
			.Level(0).DrawGridLines = False
			.AllowLinkBars = False
			.Bars.Item("Task").OverlaidType = 515 ' OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
		End With
		.Columns.Add "Info"
		With .Items
			h = .AddItem("Fixed bar")
			.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"F"
			.ItemBar(h,"F",10) = False
			.ItemBar(h,"F",11) = False
			.ItemBar(h,"F",6) = "This bar is fixed, so the uer can move or resize it"
			h = .AddItem("Moveable but not-resizable bar")
			.AddBar h,"Task",#1/3/2001#,#1/6/2001#,"F"
			.ItemBar(h,"F",6) = "This bar is moveable inside the item, but the user can't resize it."
			.ItemBar(h,"F",10) = False
			h = .AddItem("Resizable but not moveable bar")
			.AddBar h,"Task",#1/3/2001#,#1/6/2001#,"F"
			.ItemBar(h,"F",6) = "This bar is resizable but the user can't move it."
			.ItemBar(h,"F",11) = False
			h = .AddItem("Range Moveable bar")
			.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"F"
			.ItemBar(h,"F",6) = "This bar can be moved inside the displayed range."
			.ItemBar(h,"F",22) = #1/2/2001#
			.ItemBar(h,"F",25) = #1/8/2001#
			.ItemBar(h,"F",26) = 32
			.ItemBar(h,"F",27) = 90
			h = .AddItem("Range Moveable Upper No Limit bar")
			.AddBar h,"Task",#1/3/2001#,#1/6/2001#,"F"
			.ItemBar(h,"F",6) = "This bar can be moved inside the displayed range."
			.ItemBar(h,"F",22) = #1/2/2001#
			.ItemBar(h,"F",26) = 32
			.ItemBar(h,"F",27) = 90
			h = .AddItem("Range Moveable Lower No Limit bar")
			.AddBar h,"Task",#1/3/2001#,#1/6/2001#,"F"
			.ItemBar(h,"F",6) = "This bar can be moved inside the displayed range."
			.ItemBar(h,"F",25) = #1/8/2001#
			.ItemBar(h,"F",26) = 32
			.ItemBar(h,"F",27) = 90
			h = .AddItem("Moveable bar inside the item")
			.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"F"
			.ItemBar(h,"F",6) = "This bar can be moved/resized anywhere inside the item."
			h = .AddItem("Moveable bar to other items too")
			.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"FA"
			.ItemBar(h,"FA",6) = "This bar can be moved to other items too. Click the bar and move it to other items too."
			.ItemBar(h,"FA",3) = "free"
			.ItemBar(h,"FA",4) = 18
			.ItemBar(h,"FA",28) = True
			h = .AddItem("Moveable inside item")
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"F1"
			h = .AddItem("Moveable inside item")
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"F1"
			h = .AddItem("Moveable inside item")
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"F1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
783
Can I move a bar from an item to another by drag and drop
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.AllowLinkBars = False
		.Chart.Bars.Item("Task").OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"A"
			h = .AddItem("Item 2")
			.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"B"
			.ItemBar(h,"B",28) = True
			.AddItem "Item 3"
			.AddItem "Item 4"
		End With
	End With
End Function
</SCRIPT>
</BODY>
782
Can I move a bar from an item to another
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"A"
			h = .AddItem("Item 2")
			.AddBar h,"Task",#1/6/2001#,#1/14/2001#,"B"
			.ItemBar(h,"B",512) = .FirstVisibleItem
		End With
	End With
End Function
</SCRIPT>
</BODY>
781
How can change the width, transparency, style, visual appearance ( EBN), of the vertical bar that shows the current date-time

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		With .Chart
			.LevelCount = 2
			.Level(0).Label = 1048576
			With .Level(1)
				.Label = "<%ss%>"
				.Count = 15
			End With
			.MarkNowColor = &H1000000
			.MarkNowWidth = 6
			.MarkNowTransparent = 50
		End With
		.Columns.Add "Tasks"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/1/2008#,#1/1/2018#
		End With
	End With
End Function
</SCRIPT>
</BODY>
780
How can change the width, style, visual appearance ( EBN), of the vertical bar that shows the current time

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		With .Chart
			.LevelCount = 2
			.Level(0).Label = 1048576
			With .Level(1)
				.Label = "<%ss%>"
				.Count = 15
			End With
			.MarkNowColor = &H1000000
			.MarkNowWidth = 6
		End With
		.Columns.Add "Tasks"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/1/2008#,#1/1/2018#
		End With
	End With
End Function
</SCRIPT>
</BODY>
779
How can I show a vertical bar that indicates the current time

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.LevelCount = 2
			.Level(0).Label = 1048576
			With .Level(1)
				.Label = "<%ss%>"
				.Count = 15
			End With
			.MarkNowColor = RGB(0,0,255)
			.MarkNowWidth = 7
		End With
		.Columns.Add "Tasks"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/1/2008#,#1/1/2018#
		End With
	End With
End Function
</SCRIPT>
</BODY>
778
How can I show semi-transparent the vertical bar that indicates the current time

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.LevelCount = 2
			.Level(0).Label = 1048576
			With .Level(1)
				.Label = "<%ss%>"
				.Count = 15
			End With
			.MarkNowColor = RGB(0,0,255)
			.MarkNowWidth = 7
			.MarkNowTransparent = 50
		End With
		.Columns.Add "Tasks"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/1/2008#,#1/1/2018#
		End With
	End With
End Function
</SCRIPT>
</BODY>
777
Is there any way to highlight or show a vertical bar that indicates the current time, from 15 to 15 seconds

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
		.Chart.Level(0).Label = 1048576
		With .Chart.Level(1)
			.Label = "<%ss%>"
			.Count = 15
		End With
		.Chart.MarkNowColor = RGB(0,0,255)
		.Chart.MarkNowCount = 15
		.Chart.MarkNowWidth = 3
	End With
End Function
</SCRIPT>
</BODY>
776
Is there any way to highlight or show a vertical bar that indicates the current time, from minute to minute, hour and so on
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.UnitWidth = 48
			.LevelCount = 1
			.Level(0).Label = 1048576
			.MarkNowColor = RGB(255,0,0)
			.MarkNowUnit = 1048576
			.MarkNowWidth = .UnitWidth
		End With
	End With
End Function
</SCRIPT>
</BODY>
775
Is there any way to highlight or show a vertical bar that indicates the current time

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
		.Chart.Level(0).Label = 1048576
		With .Chart.Level(1)
			.Label = "<%ss%>"
			.Count = 15
		End With
		.Chart.MarkNowColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>
774
Is there a way of making a bar flash on the screen
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Items
			h = .AddItem("Flashy task")
			.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1"
			.ItemBar(h,"K1",19) = 80
		End With
	End With
End Function
</SCRIPT>
</BODY>
773
Is there any option to display overlay bars as a stack, or bars that laid over or cover other bars (exOverlaidBarsStackAutoArrange)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBySingleLine = True
		.Columns.Add "Task"
		.DrawGridLines = 1
		With .Chart
			.DrawGridLines = 1
			.AllowCreateBar = 1
			.AllowLinkBars = False
			.ResizeUnitScale = 65536
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Item("Task")
				.OverlaidType = 515 ' OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
				.Overlaid(256) = 80
			End With
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
			h = .AddItem("Task 2")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A1"
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A3"
			h = .AddItem()
			.SelectableItem(h) = False
			.AddBar h,"",#1/7/2001#,#1/11/2001#,,"<fgcolor=FF0000>Click a bar and move to a new position."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
772
Is there any option to display overlay bars as a stack, or bars that laid over or cover other bars (overlay)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBySingleLine = True
		.Columns.Add "Task"
		.DrawGridLines = 1
		With .Chart
			.DrawGridLines = 1
			.AllowCreateBar = 1
			.AllowLinkBars = False
			.ResizeUnitScale = 65536
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			.Bars.Item("Task").OverlaidType = 3
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
			h = .AddItem("Task 2")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A1"
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A3"
			h = .AddItem()
			.SelectableItem(h) = False
			.AddBar h,"",#1/7/2001#,#1/11/2001#,,"<fgcolor=FF0000>Click a bar and move to a new position."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
771
Does the overlay also work in milestone bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 22
		.Columns.Add "Task"
		With .Chart
			.ResizeUnitScale = 65536
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			With .Bars
				With .Item("Task")
					.OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
					.OverlaidGroup = "Milestone"
				End With
				With .Item("Milestone")
					.OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
					.OverlaidGroup = "Task"
				End With
			End With
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A1"
			.AddBar h,"Milestone",#1/8/2001#,#1/8/2001#,"M"
			.AddBar h,"Task",#1/9/2001#,#1/12/2001#,"A3"
			h = .AddItem("Task 2")
			.AddBar h,"Milestone",#1/4/2001#,#1/4/2001#,"M"
			.AddBar h,"Task",#1/5/2001#,#1/8/2001#,"A1"
			.AddBar h,"Task",#1/9/2001#,#1/12/2001#,"A3"
			h = .AddItem()
			.SelectableItem(h) = False
			.AddBar h,"",#1/7/2001#,#1/11/2001#,,"<fgcolor=FF0000>Click a bar and move to a new position."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
770
Is there any option to display overlaid bars of different types, or bars that laid over or cover other bars (overlay)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.DefaultItemHeight = 22
		.Columns.Add "Task"
		With .Chart
			.ResizeUnitScale = 65536
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			With .Bars
				.Copy("Task","RTask").Color = RGB(255,0,0)
				.Copy("Task","GTask").Color = RGB(0,255,0)
				With .Item("Task")
					.OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
					.Overlaid(256) = 70
					.OverlaidGroup = "RTask,GTask"
				End With
			End With
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
			h = .AddItem("Task 2")
			.AddBar h,"Task",#1/4/2001#,#1/8/2001#,"A1"
			.AddBar h,"GTask",#1/7/2001#,#1/12/2001#,"A2"
			.AddBar h,"RTask",#1/10/2001#,#1/15/2001#,"A3"
			h = .AddItem()
			.SelectableItem(h) = False
			.AddBar h,"",#1/7/2001#,#1/11/2001#,,"<fgcolor=FF0000>Click a bar and move to a new position."
		End With
	End With
End Function
</SCRIPT>
</BODY>
769
Is there any option to display overlaid bars, or bars that laid over or cover other bars (overlay)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.DefaultItemHeight = 22
		.Columns.Add "Task"
		With .Chart
			.ResizeUnitScale = 65536
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			With .Bars
				With .Copy("Task","BTask")
					.Color = RGB(255,0,0)
				End With
				With .Item("Task")
					.OverlaidType = 2
					.Overlaid(2) = "BTask"
				End With
			End With
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
			h = .AddItem("Task 2")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A1"
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A3"
			h = .AddItem()
			.SelectableItem(h) = False
			.AddBar h,"",#1/7/2001#,#1/11/2001#,,"<fgcolor=FF0000>Click a bar and move to a new position."
		End With
	End With
End Function
</SCRIPT>
</BODY>
768
Is there any option to display overlaid bars, or bars that laid over or cover other bars (overlay)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.DefaultItemHeight = 22
		.Columns.Add "Task"
		With .Chart
			.ResizeUnitScale = 65536
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Item("Task")
				.OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
				.Overlaid(256) = 70
			End With
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
			h = .AddItem("Task 2")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A1"
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A3"
			h = .AddItem()
			.SelectableItem(h) = False
			.AddBar h,"",#1/7/2001#,#1/11/2001#,,"<fgcolor=FF0000>Click a bar and move to a new position."
		End With
	End With
End Function
</SCRIPT>
</BODY>
767
Is there any option to display overlaid bars, or bars that laid over or cover other bars (overlay)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.DefaultItemHeight = 22
		.Columns.Add "Task"
		With .Chart
			.ResizeUnitScale = 65536
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			.Bars.Item("Task").OverlaidType = 1
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
			h = .AddItem("Task 2")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A1"
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A3"
			h = .AddItem()
			.SelectableItem(h) = False
			.AddBar h,"",#1/7/2001#,#1/11/2001#,,"<fgcolor=FF0000>Click a bar and move to a new position."
		End With
	End With
End Function
</SCRIPT>
</BODY>
766
How can include the values in the inner cells in the drop down filter window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.DrawGridLines = -2
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Description(1) = ""
		.Description(2) = ""
		With .Columns.Add("Single Column")
			.HTMLCaption = "Single column with <b>inner cells</b>"
			.ToolTip = "Click the drop down filter button, and the filter list includes the inner cells values too."
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 64
		End With
		.ShowFocusRect = False
		With .Items
			s = .SplitCell(.AddItem("S 1.1"),0)
			.CellValue(,s) = "S 1.2"
			.CellHAlignment(,s) = 1
			.CellBackColor(,s) = &H1000000
			.CellWidth(,s) = 84
			s = .SplitCell(.AddItem("S 2.1"),0)
			.CellValue(,s) = "S 2.2"
			.CellHAlignment(,s) = 1
			.CellWidth(,s) = 84
			s = .SplitCell(.AddItem("S 3.1"),0)
			.CellValue(,s) = "S 3.2"
			.CellHAlignment(,s) = 1
			.CellBackColor(,s) = &H1000000
			.CellWidth(,s) = 84
		End With
	End With
End Function
</SCRIPT>
</BODY>
765
How can I sort the value gets listed in the drop down filter window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.LinesAtRoot = -1
		.MarkSearchColumn = False
		.Description(0) = ""
		.Description(1) = ""
		.Description(2) = ""
		With .Columns.Add("P1")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 16
		End With
		With .Columns.Add("P2")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 32
		End With
		With .Items
			h = .AddItem("Z3")
			.CellValue(h,1) = "C"
			.CellValue(.InsertItem(h,,"Z1"),1) = "B"
			.CellValue(.InsertItem(h,,"Z2"),1) = "A"
			.ExpandItem(h) = True
		End With
	End With
End Function
</SCRIPT>
</BODY>
764
Is there a way to break the hours into 15 minute increments just showing lines instead of the minute numbers

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.FirstVisibleDate = #2/5/2008#
		.Chart.LevelCount = 3
		.Chart.Level(0).Label = "<b><%mmm%> <%dd%></b> <%yyyy%> "
		With .Chart.Level(1)
			.Label = "<%hh%>"
			.Alignment = 1
		End With
		With .Chart.Level(2)
			.Label = ""
			.Unit = 1048576
			.Count = 15
		End With
		.Chart.UnitWidth = 6
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
763
How do I specify a range where the bar can be moved or resized and to highlight the range

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.ScrollRange(0) = #1/1/2001#
		.Chart.ScrollRange(1) = #1/7/2001#
		.Chart.PaneWidth(0) = 128
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/1/2001#,#1/4/2001#
			.ItemBar(h,"",22) = #1/2/2001#
			.ItemBar(h,"",25) = #1/8/2001#
			.ItemBar(h,"",26) = 16777216
			.ItemBar(h,"",27) = 60
			h = .AddItem("Item 2")
			.AddBar h,"Task",#1/1/2001#,#1/4/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
762
How do I specify a range where the bar can be moved or resized and to highlight the range

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.ScrollRange(0) = #1/1/2001#
		.Chart.ScrollRange(1) = #1/7/2001#
		.Chart.PaneWidth(0) = 128
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/1/2001#,#1/4/2001#
			.ItemBar(h,"",22) = #1/2/2001#
			.ItemBar(h,"",25) = #1/8/2001#
			.ItemBar(h,"",26) = 32
			.ItemBar(h,"",27) = 90
			h = .AddItem("Item 2")
			.AddBar h,"Task",#1/1/2001#,#1/4/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
761
How do I specify a range where the bar can be moved or resized and to highlight the range

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.ScrollRange(0) = #1/1/2001#
		.Chart.ScrollRange(1) = #1/7/2001#
		.Chart.PaneWidth(0) = 128
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/1/2001#,#1/4/2001#
			.ItemBar(h,"",22) = #1/2/2001#
			.ItemBar(h,"",25) = #1/8/2001#
			.ItemBar(h,"",26) = 65286
			.ItemBar(h,"",27) = 90
			h = .AddItem("Item 2")
			.AddBar h,"Task",#1/1/2001#,#1/4/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
760
How do I specify a range where the bar can be moved or resized
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.ScrollRange(0) = #1/1/2001#
		.Chart.ScrollRange(1) = #1/7/2001#
		.Chart.PaneWidth(0) = 128
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/1/2001#,#1/4/2001#
			.ItemBar(h,"",22) = #1/2/2001#
			.ItemBar(h,"",25) = #1/8/2001#
			h = .AddItem("Item 2")
			.AddBar h,"Task",#1/1/2001#,#1/4/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
759
How can I change the visual appearance of the milestone bar using EBN

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAEGg4BKMMQAAYAQGKIYBkAKBQAGaAoDDMMILQiMQwjRBMKgBBCLIxiGK4DhiF4aRTHUKAAKQahLEaSZLhEZRQiqA4sS5FQBSBDQFwSByEY6mSaYJ" & _
	"AWK4tCyNM7SfQAbxnAgYaLAAYRUjuHZOTZAc4UfAdFL/K4AKrfeZIeAiCRQGiYZyHKaRShjDwXKLIIjbJhkNoJChCNQgBScPgxCx8JypaCaar2fjQM6zWAMdb2Cz7PjD" & _
	"H7wPA1WYJRaDYjhcB4LheAqGXBWUYLYb8XS3EKJYhiWA4HjqFjGJpcEzPbRiNx3H6SABlLLaLo7JpGO52FrTHZjXyzLqBVpoOyEbrmcozYzjN41RpWETfQYDcwteqcLp" & _
	"rhGVZrm6dp8j4bAnDQP5Uh+OpcH6R4Lg2YJvEIeg6kWEoJB2ZZyG6GoLCSXxtG+IZ1GmfhJjcawNFWfB/h+V5pnUc5VhWeZ4BMX4jlySwtiAJodlEYRaBYFgHHgIA2gG" & _
	"ExkFUdxFl6A5hgUbgXgcVRzFiXA3CICARAEgI"
			.Add 2,"CP:1 -6 0 5 0"
		End With
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Add("MilestoneEBN")
				.Color = &H2000000
				.Height = 14
			End With
		End With
		.Columns.Add "Tasks"
		With .Items
			.AddBar .AddItem("Milestone"),"Milestone",#1/2/2001#,#1/2/2001 0:00:01 AM#
			.AddBar .AddItem("Milestone EBN "),"MilestoneEBN",#1/2/2001#,#1/2/2001 0:00:01 AM#
		End With
	End With
End Function
</SCRIPT>
</BODY>
758
How can I change the visual appearance of the summary bar using EBN

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BGICg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGDAADEMgyAJCIxjPIgZBoGqPBpASQJUhkMocR7HMygB" & _
	"IkSRNA8kMwxdQEaw9ECRIDpGaYWTFDhsABTVQRLL0Tw9ISERqoSSaGgkCYaA7CNJ0PBNJSjJ6LJZGURbKqyCQ1DBbUB3BaUaQ9JaKa7pKa7cpWKIqSxEMrxcLFcT5DSb" & _
	"YDxGjLEhmPZBVZQNBxtJbFQHWJCNgzVAdOAAfzQM70GpMQoWJYeVpEObSBD1dABTCBczADYoex7ID+aJuGiYVZdWxJOjfbhkTTIJAaCawABrWxR8iHN5paTnUpzDjwbg" & _
	"0kqRRyr+XwjA8Go/HSBp6g6KJTFcGpWmYdg8H6dJTH0EZelueBfBuLwyBMd50nIfR+kmXB4BECQUAaEYMHQHRHCGFRYI2ZAwEIExghQZA2EIQoGGoEhOgGBBYlAeYYHM" & _
	"WJcDcGx4HYHoHmICIFjeBohkaDAAC2DAjBYJIIiKSI2CSC5hjQJBsCOCwYiIKoGmKWJkn6DANkiWgzCwYwolAcQkksWJaCuDohlicg2hDQR+EELBInKcJohMJBomILoG" & _
	"mISQuESFBOgkOQDg+SoTEyfoXCUSImDyGZhjkaI1hcJgTnoXgACYCYKG2GQkEkVJchKIoZDIbIciYKY+HEP4mlmThSg+aBIlKBYUCUKgGHyG4jEkPoKiAKI6D6EokGkS" & _
	"gyECF5jEKVJZD+aYqHKG4nGoCh+iKJ4qEqBokh+KYag6JoqmqKo2iWJpqgKRJHDiT5qk6NYtCsapmjiLprHqdo6i8awan6QovCwOp6kSLQsBsHpGjKbBbBaMYhm0Cgal" & _
	"ILBtBsUpTiGUIUAQgIA=="
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Copy("Task","Summary")
				.Color = &H1000000
				.Height = 16
			End With
		End With
		.Columns.Add "Tasks"
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Task 2"),"Summary",#1/5/2001#,#1/7/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
757
How can I change the visual appearance of the task bar using EBN

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BGoCg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGLhQiSJoJDSBEgSXDIZQ5D6OZYACDJQACJYJTbAYzyP" & _
	"JkPRAA6EZCmGAwCglf5HABRb7xNLkbQ8GySKJnWCQJhoD5BSLCNRUTRFFQtGgZBpEWwLCjQNQwWLKFoTJIEPSBDKqYDoKYqTgOOZOThHQz3HakQRdAa/ZpnaKpUo2d47" & _
	"XjMWBwGA0EzeAAGaxoShqdoiFaGU7UOJVJBOGwHK6BchoMAKbp6XoVWRaOAWLZWVABM7XLZxbLccyGfZ1XhdV5UbqUMznR7PNrjLKIJpCOJbbyAFwgBaeQABYLhK7iHR" & _
	"mi8XYwjMWpjFWOx1GIB5LmgdB4HCEBECSIBpDGHQOicIwokYPImikEIJj6eJIloEgogSc40FGcJEFiYZIG2VIoAURw1g2QxyAQNwNAMPJOgIYI4CoDIBmAeAKBIUpQDU" & _
	"KJYDoTpIB4vxgmgdgNgeYZDDoFw7CEJhQn+BohmKfImCWSZRlgYwikYMQ0gwF4DniTA/gwBJYjQYwsgoIg6AyCRQDiIJODAZBImoOguAmMZ4lQLIJjOMI3CYZJpEIT4K" & _
	"iKSI6DqD5ZGAAgHC2DAjBYR4SGUGYGE+GIlCmFhRhIB5iFAbwWsiJgMhoCoxngV4ZCcSYOHaGYnHmIg8COJpoCoOISmSWZeHWHgoEkRoAg4EIYB4NogmiSgKg6GRjGoJ" & _
	"gFh+ZJKDaBYjmgaQygiBRUHmbhoDsTAyiqIIoioGoOw8aoKhKKoemeOIaAeF5HmqHoqiyKxKgYaN/locgBiuZRojoVIok8cwsjaMBLGqDoAhGIpoEYWYEmAIxUkQLZmg" & _
	"iYg2g2I4JiCQwuAqWIOIkEAQICA=="
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Item("Task")
				.Color = &H1000000
				.Height = 16
			End With
		End With
		.Columns.Add "Tasks"
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Task 2"),"Task",#1/5/2001#,#1/7/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
756
How can I change the visual appearance of the task bar using EBN

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BZsIQAAYAQGKIYBkAKBQAGaAoDDMMILQiMQwjRBMKgBBCLIxiGK4DhiGoZATCMbDBIcSwSGgCJCjeS4ZDKHIXSxFUKTBAcSQTGyBRokaYZR" & _
	"i6A4+TRPETTWAEcABHSbQCoKTKAoCHpLQLMYxDKItJSpGYaRgqWCaZpuUIaUzKVbxbK9CSMGiQbIsOJrBqqQozWZHVITLR9VgBNqga7uGR5DoqdovU5dVTVda9Ly5LSs" & _
	"MQvfALCqOe45URdNp3RiVBYfI6+cZvfJLWh4NqeAbCMC1UJoYhlUKCBg0TRoVo9AIDX5QWaYXC0AkBA=="
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Item("Task")
				.Color = &H1000000
				.Height = 16
			End With
		End With
		.Columns.Add "Tasks"
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Task 2"),"Task",#1/5/2001#,#1/7/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
755
Is there any way to change the units and count of units used in resizing or moving a bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.AllowCreateBar = 0
			.DrawGridLines = True
			.PaneWidth(0) = 64
			.FirstVisibleDate = #6/21/2005#
			.ResizeUnitScale = 65536
			.ResizeUnitCount = 8
			.UnitWidth = 64
			With .Level(0)
				.Label = "<b><%mmm%></b> <%dd%>"
				.DrawGridLines = True
			End With
		End With
		With .Items
			h = .AddItem("Root")
			.AddBar h,"Task",#6/22/2005#,#6/23/2005 4:00:00 PM#
			h1 = .InsertItem(h,,"Task 1")
			.AddBar h1,"",#6/22/2005#,#6/24/2005#,,"some <font Comic Sans MS;12><a>text</a></font> here"
			h1 = .InsertItem(h,,"Task 2")
			.AddBar h1,"Task",#6/23/2005 8:00:00 AM#,#6/28/2005#
			.AddLink "Link1",h,"",h1,""
			.Link("Link1",6) = 0
			.Link("Link1",12) = "<bgcolor=FFFFFF> Link <a>1</a> </bgcolor>"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
754
When trying to resize, move or create a bar, it appears that you can only resize, move or create it in the units that were specified for the level in the timeline. Is there any way to change the units used in resizing or moving a bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.AllowCreateBar = 0
			.PaneWidth(0) = 64
			.FirstVisibleDate = #6/21/2005#
			.ResizeUnitScale = 65536
			.UnitWidth = 64
			.Level(0).Label = "<b><%mmm%></b> <%dd%>"
		End With
		With .Items
			h = .AddItem("Root")
			.AddBar h,"Task",#6/22/2005#,#6/23/2005 4:00:00 PM#
			h1 = .InsertItem(h,,"Task 1")
			.AddBar h1,"",#6/22/2005#,#6/24/2005#,,"some <font Comic Sans MS;12><a>text</a></font> here"
			h1 = .InsertItem(h,,"Task 2")
			.AddBar h1,"Task",#6/23/2005 8:00:00 AM#,#6/28/2005#
			.AddLink "Link1",h,"",h1,""
			.Link("Link1",6) = 0
			.Link("Link1",12) = "<bgcolor=FFFFFF> Link <a>1</a> </bgcolor>"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
753
How can I clip the HTML text or caption inside the bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Chart.Bars.Item("Task")
			.Pattern = 32
			.Height = 13
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1","This is a bit of text that get's clipped"
			.ItemBar(h,"K1",4) = 3
		End With
	End With
End Function
</SCRIPT>
</BODY>
752
How to show the overallocation/workload histogram

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.LevelCount = 2
			.NonworkingDays = 0
			.PaneWidth(0) = 70
			.FirstVisibleDate = #6/20/2005#
			.HistogramVisible = True
			.HistogramHeight = 64
			With .Bars.Item("Task")
				.HistogramCriticalColor = RGB(255,0,0)
				.HistogramPattern = 512
				.HistogramType = 1
			End With
		End With
		With .Items
			h = .AddItem("Root")
			.AddBar h,"Summary",#6/21/2005#,#7/1/2005#
			h1 = .InsertItem(h,,"Task 1")
			.AddBar h1,"Task",#6/21/2005#,#6/28/2005#
			h1 = .InsertItem(h,,"Task 2")
			.AddBar h1,"Task",#6/23/2005#,#7/1/2005#,"E"
			.ItemBar(h1,"E",21) = 5
			h1 = .InsertItem(h,,"Task 3")
			.AddBar h1,"Task",#6/25/2005#,#6/27/2005#,"E"
			.ItemBar(h1,"E",21) = 2
			.ItemBar(h1,"E",3) = "move/resize this"
			.ItemBar(h1,"E",4) = 18
			.ItemBar(h1,"E",6) = "Click the bar and move or resize it. The histogram-graph will be updated."
			.AddLink "Link1",h,"",h1,"E"
			.Link("Link1",6) = 0
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
751
How to show the overload histogram

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.LevelCount = 2
			.NonworkingDays = 0
			.PaneWidth(0) = 70
			.FirstVisibleDate = #6/20/2005#
			.HistogramVisible = True
			.HistogramHeight = 64
			With .Bars.Item("Task")
				.HistogramPattern = 258 ' &H100 Or PatternEnum.exPatternDot
				.HistogramType = 0
			End With
		End With
		With .Items
			h = .AddItem("Root")
			.AddBar h,"Summary",#6/21/2005#,#7/1/2005#
			h1 = .InsertItem(h,,"Task 1")
			.AddBar h1,"Task",#6/21/2005#,#6/28/2005#
			h1 = .InsertItem(h,,"Task 2")
			.AddBar h1,"Task",#6/23/2005#,#7/1/2005#,"E"
			.ItemBar(h1,"E",21) = 5
			h1 = .InsertItem(h,,"Task 3")
			.AddBar h1,"Task",#6/25/2005#,#6/27/2005#,"E"
			.ItemBar(h1,"E",21) = 2
			.ItemBar(h1,"E",3) = "move/resize this"
			.ItemBar(h1,"E",4) = 18
			.ItemBar(h1,"E",6) = "Click the bar and move or resize it. The histogram-graph will be updated."
			.AddLink "Link1",h,"",h1,"E"
			.Link("Link1",6) = 0
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
750
How can I align the text/caption on the scroll bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.ScrollPartCaption(1,512) = "left"
		.ScrollPartCaptionAlignment(1,512) = 0
		.ScrollPartCaption(1,128) = "right"
		.ScrollPartCaptionAlignment(1,128) = 2
		.ColumnAutoResize = False
		.Columns.Add 1
		.Columns.Add 2
		.Columns.Add 3
		.Columns.Add 4
	End With
End Function
</SCRIPT>
</BODY>
749
How do I programmatically control the position of the horizontal scroll bar in the chart area, so I can specify a range of dates to scorll within
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.LevelCount = 2
			.PaneWidth(0) = 56
			.ScrollRange(0) = #1/1/2001#
			.ScrollRange(1) = #1/31/2001#
			.FirstVisibleDate = #1/12/2001#
		End With
		.ScrollPartCaption(2,512) = .Chart.ScrollRange(0)
		.ScrollPartCaptionAlignment(2,512) = 0
		.ScrollPartCaption(2,128) = .Chart.ScrollRange(1)
		.ScrollPartCaptionAlignment(2,128) = 2
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/15/2001#,#1/18/2001#,"K1"
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/5/2001#,#1/11/2001#,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
748
How can I programmatically control the position of the "splitter" between the item list on the left side and the gantt chart on the right
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.PaneWidth(True) = 196
	End With
End Function
</SCRIPT>
</BODY>
747
How can I add a milestone bar and some text in the chart area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Milestone",#1/2/2001#,#1/2/2001#,,"<a1>text</a> outside"
			.ItemBar(h,,4) = 18
		End With
	End With
End Function
</SCRIPT>
</BODY>
746
How can I display or align the bar's caption or text outside of the bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		.DefaultItemHeight = 32
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"K1"
			.ItemBar(h,"K1",3) = "<b>to do</b>"
			.ItemBar(h,"K1",4) = 18
			.ItemBar(h,"K1",5) = 16
		End With
	End With
End Function
</SCRIPT>
</BODY>
745
How can I display or align the bar's caption or text outside of the bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/4/2001#,#1/6/2001#,"K1"
			.ItemBar(h,"K1",3) = "to do"
			.ItemBar(h,"K1",4) = 16
		End With
	End With
End Function
</SCRIPT>
</BODY>
744
How can I display or align the bar's caption or text outside of the bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1"
			.ItemBar(h,"K1",3) = "to do "
			.ItemBar(h,"K1",4) = 18
		End With
	End With
End Function
</SCRIPT>
</BODY>
743
Is there any option to keep the working days being constant while user moves the bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.FirstVisibleDate = #1/1/2002#
		.Chart.Bars.Add("Task:Split").Shortcut = "Task"
		.Columns.Add "Task"
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2002#,#1/4/2002#,"A"
			.ItemBar(h,"A",20) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
742
Is there any option to count or to specify the working days

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.FirstVisibleDate = #1/1/2002#
		.Columns.Add "Task"
		.Chart.Bars.Add("Task:Split").Shortcut = "S"
		.Chart.PaneWidth(0) = 48
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"S",#1/3/2002#,#1/4/2002#,"A"
			.ItemBar(h,"A",258) = 4
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
741
How do I select the next row/item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Column"
		With .Items
			.AddItem "Item 1"
			.AddItem "Item 2"
			.AddItem "Item 3"
			.SelectItem(.NextVisibleItem(.FocusItem)) = True
		End With
	End With
End Function
</SCRIPT>
</BODY>
740
How do I get the selected bars or links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.AllowSelectObjects = 1
		.Chart.FirstVisibleDate = #1/1/2002#
		.Columns.Add "Task"
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2002#,#1/4/2002#,"A"
			.AddBar h,"Task",#1/6/2002#,#1/10/2002#,"B"
			.ItemBar(h,"A",257) = True
		End With
		.EndUpdate 
		alert( "Bars" )
		alert( .Items.SelectedObjects(1) )
		alert( "Links" )
		alert( .Items.SelectedObjects(2) )
	End With
End Function
</SCRIPT>
</BODY>
739
How can I allow a single link being selected in the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.AllowSelectObjects = 18 ' SelectObjectsEnum.exSelectSingleObject Or SelectObjectsEnum.exSelectLinksOnly
		.Chart.FirstVisibleDate = #1/1/2002#
		.Columns.Add "Task"
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2002#,#1/4/2002#,"A"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/6/2002#,#1/10/2002#,"B"
			.AddLink "AB",h1,"A",h2,"B"
			.AddLink "BA",h2,"B",h1,"A"
			.Link("AB",257) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
738
How can I allow a single bar being selected in the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.AllowSelectObjects = 17 ' SelectObjectsEnum.exSelectSingleObject Or SelectObjectsEnum.exSelectBarsOnly
		.Chart.FirstVisibleDate = #1/1/2002#
		.Columns.Add "Task"
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2002#,#1/4/2002#,"A"
			.AddBar h,"Task",#1/6/2002#,#1/10/2002#,"B"
			.ItemBar(h,"A",257) = True
			.AddLink "AB",h,"A",h,"B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
737
How do I define the visual appearance of the bar by using your EBN/skin files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Chart.Bars.Copy("Task","EBN").Color = &H1000000
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"EBN",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Item 2"),"Task",#1/2/2001#,#1/4/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
736
Is it possible to have an "empty box" pattern for the bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.Bars.Copy("Task","Box").Pattern = 32
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Box",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
735
How do I enable resizing ( changing the height ) the items at runtime
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.ItemsAllowSizing = -1
		.DrawGridLines = 1
		.ScrollBySingleLine = True
		.Columns.Add "Column"
		.Items.AddItem "Item 1"
		With .Items
			.ItemHeight(.AddItem("Item 2")) = 48
		End With
		.Items.AddItem "Item 3"
	End With
End Function
</SCRIPT>
</BODY>
734
How do I enable resizing all the items at runtime
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.ItemsAllowSizing = 1
		.DrawGridLines = 1
		.Columns.Add "Column"
		.Items.AddItem "Item 1"
		With .Items
			.ItemHeight(.AddItem("Item 2")) = 48
		End With
		.Items.AddItem "Item 3"
	End With
End Function
</SCRIPT>
</BODY>
733
How can I use your EBN files in the histogram

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.HistogramVisible = True
			.HistogramHeight = 32
			With .Bars.Item("Task")
				.HistogramPattern = 0
				.HistogramColor = &H1000000
			End With
		End With
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/7/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
732
How can I draw only the shape of the bars in the histogram

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.HistogramVisible = True
			.HistogramHeight = 32
			With .Bars.Item("Task")
				.HistogramPattern = 512
				.HistogramColor = RGB(255,0,0)
			End With
		End With
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/7/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
731
How can I draw only the shape of the bars in the histogram

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.HistogramVisible = True
			.HistogramHeight = 32
			With .Bars.Item("Task")
				.HistogramPattern = 256 ' &H100
				.HistogramColor = RGB(255,0,0)
			End With
		End With
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/7/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
730
How can I change the color of bars in the histogram

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.HistogramVisible = True
			.HistogramHeight = 32
			With .Bars.Item("Task")
				.HistogramPattern = 6
				.HistogramColor = RGB(255,0,0)
			End With
		End With
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/7/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
729
How can I show my bars in the histogram

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.HistogramVisible = True
			.HistogramHeight = 32
			.Bars.Item("Task").HistogramPattern = 6
		End With
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/7/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
728
I'm trying to use the percentage display in my gantt's bars. Unfortunately, I don't see any percentage on the gantt chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Chart.Bars.Copy("Task","BarName")
			.Color = RGB(255,0,0)
			.Pattern = 6
		End With
		.Chart.Bars.Add("BarName%Progress").Shortcut = "Percent"
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Percent",#1/2/2001#,#1/6/2001#,"K1"
			.ItemBar(h,"K1",12) = 0.4
			.ItemBar(h,"K1",14) = True
		End With
	End With
End Function
</SCRIPT>
</BODY>
727
How can I show the histogram
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
		.Chart.Level(0).Label = 0
		With .Chart.Level(1)
			.Label = "<%mr%>"
			.Unit = 16
		End With
		.Chart.HistogramVisible = True
	End With
End Function
</SCRIPT>
</BODY>
726
How I can show Months in Time Unit panel into Roman numerals

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
		.Chart.Level(0).Label = 0
		With .Chart.Level(1)
			.Label = "<%mr%>"
			.Unit = 16
		End With
	End With
End Function
</SCRIPT>
</BODY>
725
Can I show a bar with a different vertical position

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Items
			h = .AddItem("Opaque")
			.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1"
			h = .AddItem("Transparent and Opaque")
			.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1"
			.ItemBar(h,"K1",18) = "-3"
			.ItemBar(h,"K1",19) = 80
			.AddBar h,"Task",#1/3/2001#,#1/7/2001#,"K2"
		End With
	End With
End Function
</SCRIPT>
</BODY>
724
How can I show transparent and opaque bars in the same chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Items
			h = .AddItem("Opaque")
			.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1"
			h = .AddItem("Transparent and Opaque")
			.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1"
			.ItemBar(h,"K1",18) = "-3"
			.ItemBar(h,"K1",19) = 80
			.AddBar h,"Task",#1/3/2001#,#1/7/2001#,"K2"
		End With
	End With
End Function
</SCRIPT>
</BODY>
723
How can I draw bars using transparent colors

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.ShowTransparentBars = 60
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.Bars.Copy("Task","TaskR").Color = RGB(255,0,0)
		.Chart.PaneWidth(0) = 48
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A"
			.AddBar h,"TaskR",#1/4/2001#,#1/7/2001#,"B"
		End With
	End With
End Function
</SCRIPT>
</BODY>
722
How do I select bars and links in the chart area, by dragging
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.AllowSelectObjects = 3
		.Chart.FirstVisibleDate = #1/1/2002#
		.Columns.Add "Task"
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2002#,#1/4/2002#,"A"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/6/2002#,#1/10/2002#,"B"
			.AddLink "AB",h1,"A",h2,"B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
721
How do I remove, delete the objects like bars and links selected in the chart area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.AllowSelectObjects = 3
		.Chart.FirstVisibleDate = #1/1/2002#
		.Columns.Add "Task"
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2002#,#1/4/2002#,"A"
			.ItemBar(h1,"A",257) = True
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/6/2002#,#1/10/2002#,"B"
			.AddLink "AB",h1,"A",h2,"B"
		End With
		.EndUpdate 
		.Chart.RemoveSelection 
	End With
End Function
</SCRIPT>
</BODY>
720
How do I select links and bars in the chart area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.AllowSelectObjects = 3
		.Chart.FirstVisibleDate = #1/1/2002#
		.Columns.Add "Task"
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2002#,#1/4/2002#,"A"
			.ItemBar(h1,"A",257) = True
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/6/2002#,#1/10/2002#,"B"
			.ItemBar(h2,"B",257) = True
			.AddLink "AB",h1,"A",h2,"B"
			.Link("AB",257) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
719
How do I select links in the chart area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.AllowSelectObjects = 2
		.Chart.FirstVisibleDate = #1/1/2002#
		.Columns.Add "Task"
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2002#,#1/4/2002#,"A"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/6/2002#,#1/10/2002#,"B"
			.AddLink "AB",h1,"A",h2,"B"
			.Link("AB",257) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
718
How do I select bars, or tasks in the chart area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.AllowSelectObjects = 1
		.Chart.FirstVisibleDate = #1/1/2002#
		.Columns.Add "Task"
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2002#,#1/4/2002#,"A"
			.AddBar h,"Task",#1/6/2002#,#1/10/2002#,"B"
			.ItemBar(h,"A",257) = True
			.AddLink "AB",h,"A",h,"B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
717
Can I change the Task bar so it display a Progress or a Percent bar, but it is splitted when the task intersect a non working area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.ShowTransparentBars = 60
			.FirstVisibleDate = #1/1/2001#
			.Bars.Add("Task%Progress:Split").Shortcut = "Task"
			.PaneWidth(0) = 48
		End With
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/2/2001#,#1/16/2001#,"K1"
			.ItemBar(h,"K1",12) = 0.15
			.ItemBar(h,"K1",14) = True
		End With
	End With
End Function
</SCRIPT>
</BODY>
716
Can I change the Task bar so it display a Progress or a Percent bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.Bars.Add("Task%Progress").Shortcut = "Task"
		End With
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"K1"
			.ItemBar(h,"K1",12) = 0.15
			.ItemBar(h,"K1",14) = True
		End With
	End With
End Function
</SCRIPT>
</BODY>
715
How can I remove the filter
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Columns.Add("Column")
			.DisplayFilterButton = True
			.FilterType = 1
		End With
		.ApplyFilter 
		.ClearFilter 
	End With
End Function
</SCRIPT>
</BODY>
714
I use the ShowEmptyBars property, but I display seconds from 15 to 15, and the bars are not shown correctly. What can I do

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.SelBackColor = RGB(255,0,0)
		.BeginUpdate 
		With .Chart
			.AllowCreateBar = 1
			.FirstVisibleDate = #1/1/2002#
			.LevelCount = 2
			.Level(0).Label = 1048576
			With .Level(1)
				.Label = "<%ss%>"
				.Count = 15
			End With
			.ShowEmptyBars = 15
			.ShowEmptyBarsUnit = 16777216
			.PaneWidth(0) = 48
		End With
		.Columns.Add "Task"
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/1/2002 0:00:15 AM#,#1/1/2002 0:00:15 AM#,"A"
			.AddBar h,"Task",#1/1/2002 0:01:15 AM#,#1/1/2002 0:01:30 AM#,"B"
			.AddLink "AB",h,"A",h,"B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
713
I need the bar works like in the MS Project, where task from 1/1/2001 to 1/1/2001 must display 1 day
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.ShowEmptyBars = 1
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/1/2001#,#1/1/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
712
I have a bar that has the start and end date identical. Nothing is displayed. What can I do
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.ShowEmptyBars = 1
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/2/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
711
How can I display seconds and bars for 15 to 15

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.AllowCreateBar = 1
		.Chart.FirstVisibleDate = #1/1/2002#
		.Chart.LevelCount = 2
		.Chart.ShowEmptyBars = 0
		.Chart.Level(0).Label = 1048576
		With .Chart.Level(1)
			.Label = "<%ss%>"
			.Count = 15
		End With
		.Chart.PaneWidth(0) = 48
		.Chart.Bars.Copy("Task","Task2").Color = RGB(255,0,0)
		.Columns.Add "Task"
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/1/2002 0:00:15 AM#,#1/1/2002 0:00:45 AM#,"A"
			.AddBar h,"Task2",#1/1/2002 0:01:15 AM#,#1/1/2002 0:01:45 AM#,"B"
			.AddLink "AB",h,"A",h,"B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
710
How can I vertically display the column's caption, in the header

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add("A").HeaderVertical = True
		.Columns.Add("B").HeaderVertical = True
		.Columns.Add("H").HeaderVertical = False
	End With
End Function
</SCRIPT>
</BODY>
709
How can I copy a predefined bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.Bars.Copy("Task","T2").Color = RGB(255,0,0)
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"T2",#1/2/2001#,#1/4/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
708
How can I define my own custom bar, using my icons or pictures

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Chart.Bars
			.AddShapeCorner 12345,1
			.AddShapeCorner 22345,2
			With .Add("T2")
				.StartShape = 22345 ' &H5740 Or ShapeCornerEnum.exShapeIconCircleUp1
				.EndShape = 12345 ' &H3020 Or ShapeCornerEnum.exShapeIconVBar Or ShapeCornerEnum.exShapeIconRight
				.EndColor = RGB(255,0,0)
				.Pattern = 2
				.Color = RGB(255,0,255)
				.Shape = 19
			End With
		End With
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"T2",#1/2/2001#,#1/4/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
707
How can I access a predefined bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
		End With
		.Chart.Bars.Item("Task").Color = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>
706
How can I access a predefined bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
		End With
		.Chart.Bars.Item("Task").Color = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>
705
How can I remove all predefined bars
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
704
How can I remove a predefined bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
703
How do I get the number of predefined bars
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add G2antt1.Chart.Bars.Count
	End With
End Function
</SCRIPT>
</BODY>
702
How can I change the shape of the task bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart.Bars.Copy("Task","T2")
			.EndShape = 2
			.EndColor = RGB(255,0,0)
		End With
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"T2",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Item 2"),"Task",#1/2/2001#,#1/4/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
701
How can I change the ending shape for all task bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart.Bars.Item("Task")
			.EndShape = 1
			.EndColor = RGB(255,0,0)
		End With
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>